home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / GETARGS.C < prev    next >
Text File  |  2019-04-13  |  4KB  |  134 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 3 OF 15   ╩ULY 25, 1986                 */
  14.  
  15.  
  16. /* READ SEQUENTIAL VALUES FROM ARGUMENT LIST */
  17.  
  18.  
  19. #INCLUDE <STDIO.H>
  20. #INCLUDE "DBUG.H"
  21.  
  22. INT
  23. GETARGS( ARGV, COUNT, TYPE )
  24.     CHAR   *ARGV[] ;    /* ARGUMENT ARRAY FROM MAIN         */
  25.     INT    *COUNT ;     /* CURRENT ARGUMENT INDES           */
  26.     INT     TYPE ;      /* COMMAND TYPE REQUIRING ARGUMENTS */
  27.  
  28. █
  29.     INT             RC ;
  30.     EXTERN  ╒╔╬╘    HATOI() ;
  31.     EXTERN  INT     STRLEN() ;
  32.     EXTERN  ┴╥╟╙    ALLARG ;
  33.  
  34.  
  35.     SWITCH( TYPE )
  36.     █
  37.         CASE ─╒═╨:
  38.         CASE ─┴╙═┬╠:
  39.             IF( (RC = STRLEN(ARGV[*COUNT]) > ┴─╥╠┼╬) )
  40.             █
  41.                 RETURN ┴╥╟┼╥╥ ;
  42.             ▌
  43.             ╙┴──╥(DSDMP) = (CHAR *) HATOI( ARGV[(*COUNT)++] );
  44.  
  45.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┴─╥╠┼╬) )
  46.             █
  47.                 RETURN ┴╥╟┼╥╥ ;
  48.             ▌
  49.             ┼┴──╥(DSDMP) = (CHAR *) HATOI( ARGV[(*COUNT)++] ) ;
  50.  
  51.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┬┘╘┼╠┼╬) )
  52.             █
  53.                 RETURN ┴╥╟┼╥╥ ;
  54.             ▌
  55. #IFNDEF ├64
  56.             ┬┴╬╦(DSDMP) = HATOI( ARGV[(*COUNT)++] ) ;        
  57. #ENDIF
  58.             BREAK ;
  59.  
  60.         CASE ╥┼┴─: 
  61.             IF( (RC = STRLEN(ARGV[*COUNT]) > ┴─╥╠┼╬) )
  62.             █
  63.                 RETURN ┴╥╟┼╥╥ ;
  64.             ▌
  65.             ┴──╥(RDBYTE) = (CHAR *) HATOI( ARGV[(*COUNT)++] );
  66.  
  67.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┬┘╘┼╠┼╬) )
  68.             █
  69.                 RETURN ┴╥╟┼╥╥ ;
  70.             ▌
  71. #IFNDEF ├64
  72.             ┬┴╬╦(RDBYTE) = HATOI( ARGV[(*COUNT)++] ) ;        
  73. #ENDIF
  74.             BREAK ;
  75.  
  76.  
  77.         CASE ╫╥╔╘┼:
  78.             IF( (RC = STRLEN(ARGV[*COUNT]) > ┴─╥╠┼╬) )
  79.             █
  80.                 RETURN ┴╥╟┼╥╥ ;
  81.             ▌
  82.             ┴──╥(WRTBYTE) = (CHAR *) HATOI( ARGV[(*COUNT)++] );
  83.  
  84.  
  85.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┬┘╘┼╠┼╬) )
  86.             █
  87.                 RETURN ┴╥╟┼╥╥ ;
  88.             ▌
  89.             ┬┘╘┼(WRTBYTE) = HATOI( ARGV[(*COUNT)++] ) ;
  90.  
  91.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┬┘╘┼╠┼╬) )
  92.             █
  93.                 RETURN ┴╥╟┼╥╥ ;
  94.             ▌
  95. #IFNDEF ├64
  96.             ┬┴╬╦(WRTBYTE) = HATOI( ARGV[(*COUNT)++] ) ;        
  97. #ENDIF
  98.             BREAK ;
  99.  
  100.         CASE ╞╔╬─:
  101.             IF( (RC = STRLEN(ARGV[*COUNT]) > ╙╘╥╠┼╬) )
  102.             █
  103.                 RETURN ┴╥╟┼╥╥ ;
  104.             ▌
  105.             STRNCPY( ╙╘╥╔╬╟(FND), ARGV[(*COUNT)++], ╙╘╥╠┼╬) ;
  106.  
  107.             IF( (RC = STRLEN(ARGV[*COUNT]) > ┴─╥╠┼╬) )
  108.             █
  109.                 RETURN ┴╥╟┼╥╥ ;
  110.             ▌
  111.             ╙┴──╥(FND) = (CHAR *) HATOI( ARGV[(*COUNT)++] );
  112.  
  113.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┴─╥╠┼╬) )
  114.             █
  115.                 RETURN ┴╥╟┼╥╥ ;
  116.             ▌
  117.             ┼┴──╥(FND) = (CHAR *) HATOI( ARGV[(*COUNT)++] ) ;
  118.  
  119.             IF ( (RC = STRLEN(ARGV[*COUNT]) > ┬┘╘┼╠┼╬) )
  120.             █
  121.                 RETURN ┴╥╟┼╥╥ ;
  122.             ▌
  123. #IFNDEF ├64
  124.             ┬┴╬╦(FND) = HATOI( ARGV[(*COUNT)++] ) ;        
  125. #ENDIF
  126.             BREAK ;
  127.  
  128.  
  129.         DEFAULT:
  130.             BREAK ;
  131.     ▌
  132.     RETURN ╬╒╠╠ ;
  133. ▌
  134.